home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
lsp
/
predlib.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
46KB
|
2,418 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "predlib.h"
init_predlib(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
base[0]= VV[0];
(void)simple_symlispcall_no_event(VV[91],base+0,1);
data->v.v_self[1]=VV[1]=string_to_object(VV[1]);
vs_top=sup;
MM(VV[7],L2,start,size,data);
(void)(putprop(VV[13],VV[14],VV[15]));
base[0]=
make_cclosure(LC57,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[13],base[0],VV[19]));
(void)(putprop(VV[13],Cnil,VV[20]));
(void)(putprop(VV[21],VV[22],VV[15]));
base[0]=
make_cclosure(LC58,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[21],base[0],VV[19]));
(void)(putprop(VV[21],Cnil,VV[20]));
(void)(putprop(VV[24],VV[25],VV[15]));
base[0]=
make_cclosure(LC59,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[24],base[0],VV[19]));
(void)(putprop(VV[24],Cnil,VV[20]));
(void)(putprop(VV[27],VV[28],VV[15]));
base[0]=
make_cclosure(LC60,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[27],base[0],VV[19]));
(void)(putprop(VV[27],Cnil,VV[20]));
(void)(putprop(VV[32],VV[33],VV[15]));
base[0]=
make_cclosure(LC61,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[32],base[0],VV[19]));
(void)(putprop(VV[32],Cnil,VV[20]));
(void)(putprop(VV[35],VV[36],VV[15]));
base[0]=
make_cclosure(LC62,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[35],base[0],VV[19]));
(void)(putprop(VV[35],Cnil,VV[20]));
(void)(putprop(VV[38],VV[39],VV[15]));
base[0]=
make_cclosure(LC63,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[38],base[0],VV[19]));
(void)(putprop(VV[38],Cnil,VV[20]));
(void)(putprop(VV[41],VV[42],VV[15]));
base[0]=
make_cclosure(LC64,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[41],base[0],VV[19]));
(void)(putprop(VV[41],Cnil,VV[20]));
(void)(putprop(VV[43],VV[44],VV[15]));
base[0]=
make_cclosure(LC65,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[43],base[0],VV[19]));
(void)(putprop(VV[43],Cnil,VV[20]));
(void)(putprop(VV[46],VV[47],VV[15]));
base[0]=
make_cclosure(LC66,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[46],base[0],VV[19]));
(void)(putprop(VV[46],Cnil,VV[20]));
(void)(putprop(VV[48],VV[49],VV[15]));
base[0]=
make_cclosure(LC67,Cnil,Cnil,Cdata,Cstart,Csize);
(void)(putprop(VV[48],base[0],VV[19]));
(void)(putprop(VV[48],Cnil,VV[20]));
MF(VV[92],L47,start,size,data);
base[0]= VV[50];
T60:;
if(!(endp(base[0]))){
goto T61;}
goto T58;
T61:;
(void)(putprop(caar(base[0]),cdar(base[0]),VV[51]));
base[0]= cdr(base[0]);
goto T60;
T58:;
MF(VV[93],L49,start,size,data);
MF(VV[94],L50,start,size,data);
MF(VV[95],L51,start,size,data);
MF(VV[96],L52,start,size,data);
MF(VV[97],L53,start,size,data);
MF(VV[98],L54,start,size,data);
MF(VV[99],L55,start,size,data);
MF(VV[100],L56,start,size,data);
vs_top=vs_base=base;
}
/* macro definition for DEFTYPE */
static L2()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
check_arg(2);
vs_top=sup;
{object V1=base[0]->c.c_cdr;
if(endp(V1))invalid_macro_call();
base[2]= (V1->c.c_car);
V1=V1->c.c_cdr;
if(endp(V1))invalid_macro_call();
base[3]= (V1->c.c_car);
V1=V1->c.c_cdr;
base[4]= V1;}
base[5]= base[3];
base[6]= Cnil;
T71:;
if((base[5])!=Cnil){
goto T72;}
goto T69;
T72:;
{object x= car(base[5]),V2= VV[1];
while(!endp(V2))
if(eql(x,V2->c.c_car)){
goto T78;
}else V2=V2->c.c_cdr;
goto T76;}
T78:;
if(car(base[5])==VV[2]){
goto T79;}
goto T69;
T79:;
base[6]= make_cons(VV[2],base[6]);
base[5]= cdr(base[5]);
T88:;
if((base[5])==Cnil){
goto T90;}
{object x= car(base[5]),V3= VV[1];
while(!endp(V3))
if(eql(x,V3->c.c_car)){
goto T93;
}else V3=V3->c.c_cdr;
goto T89;}
T93:;
T90:;
goto T86;
T89:;
if(!(type_of(car(base[5]))==t_symbol)){
goto T97;}
base[7]= list(2,car(base[5]),VV[3]);
base[6]= make_cons(base[7],base[6]);
goto T95;
T97:;
base[6]= make_cons(car(base[5]),base[6]);
T95:;
base[5]= cdr(base[5]);
goto T88;
T86:;
base[7]= base[6];
base[8]= base[5];
vs_top=(vs_base=base+7)+2;
Lreconc();
vs_top=sup;
base[3]= vs_base[0];
goto T69;
T76:;
base[7]= cdr(base[5]);
base[6]= make_cons(car(base[5]),base[6]);
base[5]= base[7];
goto T71;
T69:;
base[5]= list(2,VV[6],base[2]);
base[6]= listA(4,VV[7],base[2],base[3],base[4]);
base[7]= list(2,VV[6],base[6]);
base[8]= list(4,VV[5],base[5],base[7],VV[8]);
base[9]= list(2,VV[6],base[2]);
base[10]= listA(3,VV[10],base[3],base[4]);
base[11]= list(2,VV[9],base[10]);
base[12]= list(4,VV[5],base[9],base[11],VV[11]);
base[13]= list(2,VV[6],base[2]);
base[15]= base[4];
base[14]= simple_symlispcall_no_event(VV[101],base+15,1);
base[15]= list(4,VV[5],base[13],base[14],VV[12]);
base[16]= list(2,VV[6],base[2]);
base[17]= list(5,VV[4],base[8],base[12],base[15],base[16]);
vs_top=(vs_base=base+17)+1;
return;
}
/* function definition for SIMPLE-ARRAY-P */
static L47()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
check_arg(1);
vs_top=sup;
TTL:;
if(type_of(base[0])==t_array||
type_of(base[0])==t_vector||
type_of(base[0])==t_string||
type_of(base[0])==t_bitvector){
goto T115;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T115:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
Ladjustable_array_p();
vs_top=sup;
base[1]= vs_base[0];
if((base[1])==Cnil){
goto T117;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T117:;
base[2]= base[0];
base[1]= simple_symlispcall_no_event(VV[102],base+2,1);
if((base[1])==Cnil){
goto T121;}
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
T121:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
siLdisplaced_array_p();
vs_top=sup;
base[1]= vs_base[0];
base[2]= ((base[1])==Cnil?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
}
/* function definition for TYPEP */
static L49()
{ register object *base=vs_base;
register object *sup=base+VM5;
vs_reserve(VM5);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= Cnil;
base[3]= Cnil;
if(!(type_of(base[1])!=t_cons)){
goto T129;}
base[2]= base[1];
base[3]= Cnil;
goto T127;
T129:;
base[2]= car(base[1]);
base[3]= cdr(base[1]);
T127:;
base[4]= get(base[2],VV[51],Cnil);
if((base[4])==Cnil){
goto T137;}
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
super_funcall_no_event(base[4]);
return;
T137:;
{object V4= base[2];
if((V4!= VV[59]))goto T142;
{object x= base[0],V5= base[3];
while(!endp(V5))
if(eql(x,V5->c.c_car)){
base[4]= V5;
vs_top=(vs_base=base+4)+1;
return;
}else V5=V5->c.c_cdr;
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;}
T142:;
if((V4!= VV[62]))goto T143;
base[5]= base[0];
base[6]= car(base[3]);
vs_top=(vs_base=base+5)+2;
L49();
vs_top=sup;
base[4]= vs_base[0];
base[5]= ((base[4])==Cnil?Ct:Cnil);
vs_top=(vs_base=base+5)+1;
return;
T143:;
if((V4!= VV[60]))goto T147;
base[4]= base[3];
T149:;
if((base[4])!=Cnil){
goto T150;}
base[5]= Cnil;
vs_top=(vs_base=base+5)+1;
return;
T150:;
base[5]= base[0];
base[6]= car(base[4]);
vs_top=(vs_base=base+5)+2;
L49();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T154;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T154:;
base[4]= cdr(base[4]);
goto T149;
T147:;
if((V4!= VV[61]))goto T162;
base[4]= base[3];
T164:;
if((base[4])!=Cnil){
goto T165;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T165:;
base[5]= base[0];
base[6]= car(base[4]);
vs_top=(vs_base=base+5)+2;
L49();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T169;}
base[5]= Cnil;
vs_top=(vs_base=base+5)+1;
return;
T169:;
base[4]= cdr(base[4]);
goto T164;
T162:;
if((V4!= VV[103]))goto T177;
base[4]= car(base[3]);
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
super_funcall_no_event(base[4]);
return;
T177:;
if((V4!= Ct))goto T180;
base[4]= Ct;
vs_top=(vs_base=base+4)+1;
return;
T180:;
if((V4!= Cnil))goto T181;
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T181:;
if((V4!= VV[13]))goto T182;
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
Ltype_of();
vs_top=sup;
base[4]= vs_base[0];
base[5]= (base[4]==VV[13]?Ct:Cnil);
vs_top=(vs_base=base+5)+1;
return;
T182:;
if((V4!= VV[52]))goto T185;
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
Ltype_of();
vs_top=sup;
base[4]= vs_base[0];
base[5]= (base[4]==VV[52]?Ct:Cnil);
vs_top=(vs_base=base+5)+1;
return;
T185:;
if((V4!= VV[53]))goto T188;
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
Ltype_of();
vs_top=sup;
base[4]= vs_base[0];
base[5]= (base[4]==VV[53]?Ct:Cnil);
vs_top=(vs_base=base+5)+1;
return;
T188:;
if((V4!= VV[104]))goto T191;
if(type_of(base[0])==t_character){
goto T192;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T192:;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lstandard_char_p();
return;
T191:;
if((V4!= VV[40]))goto T195;
if(type_of(base[0])==t_character){
goto T196;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T196:;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lstring_char_p();
return;
T195:;
if((V4!= VV[16]))goto T199;
if(type_of(base[0])==t_fixnum||type_of(base[0])==t_bignum){
goto T200;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T200:;
base[4]= base[0];
base[5]= base[3];
vs_top=(vs_base=base+4)+2;
L54();
return;
T199:;
if((V4!= VV[82]))goto T204;
base[4]= base[0];
if((simple_symlispcall_no_event(VV[105],base+4,1))!=Cnil){
goto T205;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T205:;
base[4]= base[0];
base[5]= base[3];
vs_top=(vs_base=base+4)+2;
L54();
return;
T204:;
if((V4!= VV[83]))goto T210;
if(type_of(base[0])==t_shortfloat||type_of(base[0])==t_longfloat){
goto T211;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T211:;
base[4]= base[0];
base[5]= base[3];
vs_top=(vs_base=base+4)+2;
L54();
return;
T210:;
if((V4!= VV[54]))goto T215;
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
Ltype_of();
vs_top=sup;
base[4]= vs_base[0];
if(base[4]==VV[54]){
goto T216;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T216:;
base[4]= base[0];
base[5]= base[3];
vs_top=(vs_base=base+4)+2;
L54();
return;
T215:;
if((V4!= VV[106])
&& (V4!= VV[107])
&& (V4!= VV[55]))goto T222;
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
Ltype_of();
vs_top=sup;
base[4]= vs_base[0];
if(base[4]==VV[55]){
goto T223;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T223:;
base[4]= base[0];
base[5]= base[3];
vs_top=(vs_base=base+4)+2;
L54();
return;
T222:;
if((V4!= VV[86]))goto T229;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lcomplexp();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T230;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T230:;
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
Lrealpart();
vs_top=sup;
base[4]= vs_base[0];
base[5]= car(base[3]);
vs_top=(vs_base=base+4)+2;
L49();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T233;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T233:;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Limagpart();
vs_top=sup;
base[0]= vs_base[0];
base[1]= car(base[3]);
goto TTL;
T229:;
if((V4!= VV[66]))goto T242;
if(!(type_of(base[0])==t_cons||base[0]==Cnil)){
goto T243;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T243:;
base[5]= (type_of(base[0])==t_vector||
type_of(base[0])==t_string||
type_of(base[0])==t_bitvector?Ct:Cnil);
vs_top=(vs_base=base+5)+1;
return;
T242:;
if((V4!= VV[38]))goto T245;
if(type_of(base[0])==t_string){
goto T246;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T246:;
if(!(base[3]==Cnil)){
goto T248;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T248:;
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
base[6]= base[3];
vs_top=(vs_base=base+5)+2;
L55();
return;
T245:;
if((V4!= VV[41]))goto T253;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lbit_vector_p();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T254;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T254:;
if(!(base[3]==Cnil)){
goto T257;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T257:;
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
base[6]= base[3];
vs_top=(vs_base=base+5)+2;
L55();
return;
T253:;
if((V4!= VV[46]))goto T262;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lsimple_string_p();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T263;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T263:;
if(!(base[3]==Cnil)){
goto T266;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T266:;
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
base[6]= base[3];
vs_top=(vs_base=base+5)+2;
L55();
return;
T262:;
if((V4!= VV[48]))goto T271;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lsimple_bit_vector_p();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T272;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T272:;
if(!(base[3]==Cnil)){
goto T275;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T275:;
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
base[6]= base[3];
vs_top=(vs_base=base+5)+2;
L55();
return;
T271:;
if((V4!= VV[43]))goto T280;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lsimple_vector_p();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T281;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T281:;
if(!(base[3]==Cnil)){
goto T284;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T284:;
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
base[6]= base[3];
vs_top=(vs_base=base+5)+2;
L55();
return;
T280:;
if((V4!= VV[45]))goto T289;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
L47();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T290;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T290:;
if(!(endp(base[3]))){
goto T295;}
goto T293;
T295:;
if(!(car(base[3])==VV[29])){
goto T297;}
goto T293;
T297:;
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
Larray_element_type();
vs_top=sup;
base[5]= vs_base[0];
if(equal(base[5],car(base[3]))){
goto T293;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T293:;
if(!(endp(cdr(base[3])))){
goto T301;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T301:;
if(!(cadr(base[3])==VV[29])){
goto T303;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T303:;
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
base[6]= cadr(base[3]);
vs_top=(vs_base=base+5)+2;
L55();
return;
T289:;
if((V4!= VV[37]))goto T308;
if(type_of(base[0])==t_array||
type_of(base[0])==t_vector||
type_of(base[0])==t_string||
type_of(base[0])==t_bitvector){
goto T309;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T309:;
if(!(endp(base[3]))){
goto T313;}
goto T311;
T313:;
if(!(car(base[3])==VV[29])){
goto T315;}
goto T311;
T315:;
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
Larray_element_type();
vs_top=sup;
base[5]= vs_base[0];
if(equal(base[5],car(base[3]))){
goto T311;}
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T311:;
if(!(endp(cdr(base[3])))){
goto T319;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T319:;
if(!(cadr(base[3])==VV[29])){
goto T321;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T321:;
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
base[6]= cadr(base[3]);
vs_top=(vs_base=base+5)+2;
L55();
return;
T308:;
if((get(base[2],VV[56],Cnil))==Cnil){
goto T327;}
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
siLstructurep();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T330;}
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
siLstructure_name();
vs_top=sup;
base[4]= vs_base[0];
T336:;
if(!(base[2]==base[4])){
goto T337;}
base[5]= Ct;
vs_top=(vs_base=base+5)+1;
return;
T337:;
if((get(base[4],VV[57],Cnil))!=Cnil){
goto T341;}
base[5]= Cnil;
vs_top=(vs_base=base+5)+1;
return;
T341:;
base[4]= get(base[4],VV[57],Cnil);
goto T336;
T330:;
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;
T327:;
if((get(base[2],VV[19],Cnil))==Cnil){
goto T348;}
base[4]= get(base[2],VV[19],Cnil);
{object V6;
V6= base[3];
vs_top=base+5;
while(!endp(V6))
{vs_push(car(V6));V6=cdr(V6);}
vs_base=base+5;}
super_funcall_no_event(base[4]);
vs_top=sup;
base[1]= vs_base[0];
goto TTL;
T348:;
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
return;}
}
/* function definition for NORMALIZE-TYPE */
static L50()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
base[2]= Cnil;
T356:;
if(!(type_of(base[0])!=t_cons)){
goto T360;}
base[1]= base[0];
base[2]= Cnil;
goto T358;
T360:;
base[1]= car(base[0]);
base[2]= cdr(base[0]);
T358:;
if((get(base[1],VV[19],Cnil))==Cnil){
goto T369;}
base[3]= get(base[1],VV[19],Cnil);
{object V7;
V7= base[2];
vs_top=base+4;
while(!endp(V7))
{vs_push(car(V7));V7=cdr(V7);}
vs_base=base+4;}
super_funcall_no_event(base[3]);
vs_top=sup;
base[0]= vs_base[0];
goto T357;
T369:;
if(!(type_of(base[0])!=t_cons)){
goto T375;}
base[3]= make_cons(base[0],Cnil);
vs_top=(vs_base=base+3)+1;
return;
T375:;
vs_top=(vs_base=base+0)+1;
return;
T357:;
goto T356;
}
/* function definition for KNOWN-TYPE-P */
static L51()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
check_arg(1);
vs_top=sup;
TTL:;
if(!(type_of(base[0])==t_cons)){
goto T378;}
base[0]= car(base[0]);
T378:;
{object x= base[0],V8= VV[58];
while(!endp(V8))
if(eql(x,V8->c.c_car)){
goto T382;
}else V8=V8->c.c_cdr;}
if((get(base[0],VV[56],Cnil))==Cnil){
goto T383;}
T382:;
base[1]= Ct;
vs_top=(vs_base=base+1)+1;
return;
T383:;
base[1]= Cnil;
vs_top=(vs_base=base+1)+1;
return;
}
/* function definition for SUBTYPEP */
static L52()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= Cnil;
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
base[6]= Cnil;
base[7]= Cnil;
base[8]= base[0];
vs_top=(vs_base=base+8)+1;
L50();
vs_top=sup;
base[0]= vs_base[0];
base[8]= base[1];
vs_top=(vs_base=base+8)+1;
L50();
vs_top=sup;
base[1]= vs_base[0];
if(!(equal(base[0],base[1]))){
goto T393;}
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T393:;
base[2]= car(base[0]);
base[3]= car(base[1]);
base[4]= cdr(base[0]);
base[5]= cdr(base[1]);
if(!(base[2]==VV[59])){
goto T408;}
base[8]= base[4];
base[9]= car(base[8]);
T413:;
if(!(endp(base[8]))){
goto T414;}
goto T410;
T414:;
base[10]= base[9];
base[11]= base[1];
vs_top=(vs_base=base+10)+2;
L49();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T418;}
base[10]= Cnil;
base[11]= Ct;
vs_top=(vs_base=base+10)+2;
return;
T418:;
base[8]= cdr(base[8]);
base[9]= car(base[8]);
goto T413;
T410:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T408:;
if(!(base[2]==VV[60])){
goto T433;}
base[8]= base[4];
base[9]= car(base[8]);
T438:;
if(!(endp(base[8]))){
goto T439;}
goto T435;
T439:;
base[12]= base[9];
base[13]= base[1];
vs_top=(vs_base=base+12)+2;
L52();
if(vs_base>=vs_top){vs_top=sup;goto T447;}
base[10]= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T448;}
base[11]= vs_base[0];
vs_top=sup;
goto T449;
T447:;
base[10]= Cnil;
T448:;
base[11]= Cnil;
T449:;
if((base[10])!=Cnil){
goto T443;}
base[12]= base[10];
base[13]= base[11];
vs_top=(vs_base=base+12)+2;
return;
T443:;
base[8]= cdr(base[8]);
base[9]= car(base[8]);
goto T438;
T435:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T433:;
if(!(base[2]==VV[61])){
goto T462;}
base[8]= base[4];
base[9]= car(base[8]);
T467:;
if(!(endp(base[8]))){
goto T468;}
goto T464;
T468:;
base[11]= base[9];
base[12]= base[1];
vs_top=(vs_base=base+11)+2;
L52();
vs_top=sup;
base[10]= vs_base[0];
if((base[10])==Cnil){
goto T472;}
base[11]= Ct;
base[12]= Ct;
vs_top=(vs_base=base+11)+2;
return;
T472:;
base[8]= cdr(base[8]);
base[9]= car(base[8]);
goto T467;
T464:;
base[8]= Cnil;
base[9]= Cnil;
vs_top=(vs_base=base+8)+2;
return;
T462:;
if(!(base[2]==VV[62])){
goto T406;}
base[10]= car(base[4]);
base[11]= base[1];
vs_top=(vs_base=base+10)+2;
L52();
if(vs_base>=vs_top){vs_top=sup;goto T492;}
base[8]= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T493;}
base[9]= vs_base[0];
vs_top=sup;
goto T494;
T492:;
base[8]= Cnil;
T493:;
base[9]= Cnil;
T494:;
base[10]= ((base[8])==Cnil?Ct:Cnil);
base[11]= base[9];
vs_top=(vs_base=base+10)+2;
return;
T406:;
if(!(base[3]==VV[59])){
goto T499;}
base[8]= Cnil;
base[9]= Cnil;
vs_top=(vs_base=base+8)+2;
return;
T499:;
if(!(base[3]==VV[60])){
goto T504;}
base[8]= base[5];
base[9]= car(base[8]);
T509:;
if(!(endp(base[8]))){
goto T510;}
goto T506;
T510:;
base[11]= base[0];
base[12]= base[9];
vs_top=(vs_base=base+11)+2;
L52();
vs_top=sup;
base[10]= vs_base[0];
if((base[10])==Cnil){
goto T514;}
base[11]= Ct;
base[12]= Ct;
vs_top=(vs_base=base+11)+2;
return;
T514:;
base[8]= cdr(base[8]);
base[9]= car(base[8]);
goto T509;
T506:;
base[8]= Cnil;
base[9]= Cnil;
vs_top=(vs_base=base+8)+2;
return;
T504:;
if(!(base[3]==VV[61])){
goto T530;}
base[8]= base[5];
base[9]= car(base[8]);
T535:;
if(!(endp(base[8]))){
goto T536;}
goto T532;
T536:;
base[12]= base[0];
base[13]= base[9];
vs_top=(vs_base=base+12)+2;
L52();
if(vs_base>=vs_top){vs_top=sup;goto T544;}
base[10]= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T545;}
base[11]= vs_base[0];
vs_top=sup;
goto T546;
T544:;
base[10]= Cnil;
T545:;
base[11]= Cnil;
T546:;
if((base[10])!=Cnil){
goto T540;}
base[12]= base[10];
base[13]= base[11];
vs_top=(vs_base=base+12)+2;
return;
T540:;
base[8]= cdr(base[8]);
base[9]= car(base[8]);
goto T535;
T532:;
base[8]= Cnil;
base[9]= Cnil;
vs_top=(vs_base=base+8)+2;
return;
T530:;
if(!(base[3]==VV[62])){
goto T497;}
base[10]= base[0];
base[11]= car(base[5]);
symlispcall_no_event(VV[109],base+10,2);
if(vs_base>=vs_top){vs_top=sup;goto T563;}
base[8]= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T564;}
base[9]= vs_base[0];
vs_top=sup;
goto T565;
T563:;
base[8]= Cnil;
T564:;
base[9]= Cnil;
T565:;
base[10]= ((base[8])==Cnil?Ct:Cnil);
base[11]= base[9];
vs_top=(vs_base=base+10)+2;
return;
T497:;
base[8]= base[0];
vs_top=(vs_base=base+8)+1;
L51();
vs_top=sup;
base[6]= vs_base[0];
base[8]= base[1];
vs_top=(vs_base=base+8)+1;
L51();
vs_top=sup;
base[7]= vs_base[0];
if(base[2]==Cnil){
goto T574;}
if(base[3]==Ct){
goto T574;}
if(!(base[3]==VV[63])){
goto T575;}
T574:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T575:;
if(!(base[3]==Cnil)){
goto T584;}
base[8]= Cnil;
base[9]= base[6];
vs_top=(vs_base=base+8)+2;
return;
T584:;
if(!(base[2]==Ct)){
goto T589;}
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T589:;
if(!(base[2]==VV[63])){
goto T594;}
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T594:;
if(!(base[3]==VV[64])){
goto T599;}
{object x= base[2],V9= VV[65];
while(!endp(V9))
if(eql(x,V9->c.c_car)){
goto T603;
}else V9=V9->c.c_cdr;
goto T602;}
T603:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T602:;
base[8]= Cnil;
base[9]= base[6];
vs_top=(vs_base=base+8)+2;
return;
T599:;
if(!(base[3]==VV[66])){
goto T609;}
{object x= base[2],V10= VV[67];
while(!endp(V10))
if(eql(x,V10->c.c_car)){
goto T613;
}else V10=V10->c.c_cdr;
goto T612;}
T613:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T612:;
if(!(base[2]==VV[37])){
goto T617;}
if((cdr(base[4]))==Cnil){
goto T620;}
if(!(type_of(cadr(base[4]))==t_cons)){
goto T620;}
if((cdadr(base[4]))!=Cnil){
goto T620;}
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T620:;
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T617:;
base[8]= Cnil;
base[9]= base[6];
vs_top=(vs_base=base+8)+2;
return;
T609:;
if(!(base[2]==VV[64])){
goto T633;}
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T633:;
if(!(base[2]==VV[66])){
goto T638;}
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T638:;
if(!(base[3]==VV[68])){
goto T643;}
{object x= base[2],V11= VV[69];
while(!endp(V11))
if(eql(x,V11->c.c_car)){
goto T647;
}else V11=V11->c.c_cdr;
goto T646;}
T647:;
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T646:;
if((base[6])==Cnil){
goto T651;}
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T651:;
base[8]= Cnil;
base[9]= Cnil;
vs_top=(vs_base=base+8)+2;
return;
T643:;
if(!(base[2]==VV[68])){
goto T658;}
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T658:;
if(!(base[3]==VV[70])){
goto T663;}
{object x= base[2],V12= VV[71];
while(!endp(V12))
if(eql(x,V12->c.c_car)){
goto T667;
}else V12=V12->c.c_cdr;
goto T666;}
T667:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T666:;
base[8]= Cnil;
base[9]= base[6];
vs_top=(vs_base=base+8)+2;
return;
T663:;
if(!(base[3]==VV[72])){
goto T673;}
if(!(base[2]==VV[72])){
goto T676;}
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T676:;
base[8]= Cnil;
base[9]= base[6];
vs_top=(vs_base=base+8)+2;
return;
T673:;
if(!(base[3]==VV[73])){
goto T683;}
if(!(base[2]==VV[73])){
goto T686;}
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T686:;
base[8]= Cnil;
base[9]= base[6];
vs_top=(vs_base=base+8)+2;
return;
T683:;
if(!(base[3]==VV[74])){
goto T693;}
{object x= base[2],V13= VV[75];
while(!endp(V13))
if(eql(x,V13->c.c_car)){
goto T697;
}else V13=V13->c.c_cdr;
goto T696;}
T697:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T696:;
base[8]= Cnil;
base[9]= base[6];
vs_top=(vs_base=base+8)+2;
return;
T693:;
if(!(base[2]==VV[74])){
goto T703;}
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T703:;
if(!(base[3]==VV[76])){
goto T708;}
if(base[2]==VV[76]){
goto T710;}
if((get(base[2],VV[56],Cnil))==Cnil){
goto T711;}
T710:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T711:;
base[8]= Cnil;
base[9]= base[6];
vs_top=(vs_base=base+8)+2;
return;
T708:;
if(!(base[2]==VV[76])){
goto T720;}
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T720:;
if((get(base[2],VV[56],Cnil))==Cnil){
goto T725;}
if((get(base[3],VV[56],Cnil))==Cnil){
goto T728;}
base[8]= base[2];
T731:;
if((base[8])!=Cnil){
goto T732;}
base[10]= Cnil;
base[11]= Ct;
vs_top=(vs_base=base+10)+2;
return;
T732:;
if(!(base[8]==base[3])){
goto T738;}
base[10]= Ct;
base[11]= Ct;
vs_top=(vs_base=base+10)+2;
return;
T738:;
base[8]= get(base[8],VV[57],Cnil);
goto T731;
T728:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T725:;
if((get(base[3],VV[56],Cnil))==Cnil){
goto T749;}
base[8]= Cnil;
base[9]= base[6];
vs_top=(vs_base=base+8)+2;
return;
T749:;
{object V14= base[2];
if((V14!= VV[52]))goto T753;
{object V15= base[3];
if((V15!= VV[52]))goto T754;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T754:;
if((V15!= VV[16])
&& (V15!= VV[82]))goto T757;
base[8]= VV[77];
base[9]= base[5];
vs_top=(vs_base=base+8)+2;
L53();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T759;}
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T759:;
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T757:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;}
T753:;
if((V14!= VV[53]))goto T769;
{object V16= base[3];
if((V16!= VV[53]))goto T770;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T770:;
if((V16!= VV[82]))goto T773;
base[8]= VV[78];
base[9]= base[5];
vs_top=(vs_base=base+8)+2;
L53();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T775;}
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T775:;
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T773:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;}
T769:;
if((V14!= VV[104]))goto T785;
{object x= base[3],V17= VV[79];
while(!endp(V17))
if(eql(x,V17->c.c_car)){
goto T788;
}else V17=V17->c.c_cdr;
goto T787;}
T788:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T787:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T785:;
if((V14!= VV[104]))goto T793;
{object x= base[3],V18= VV[80];
while(!endp(V18))
if(eql(x,V18->c.c_car)){
goto T796;
}else V18=V18->c.c_cdr;
goto T795;}
T796:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T795:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T793:;
if((V14!= VV[16]))goto T801;
{object x= base[3],V19= VV[81];
while(!endp(V19))
if(eql(x,V19->c.c_car)){
goto T804;
}else V19=V19->c.c_cdr;
goto T803;}
T804:;
base[9]= base[4];
base[10]= base[5];
vs_top=(vs_base=base+9)+2;
L53();
vs_top=sup;
base[8]= vs_base[0];
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T803:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T801:;
if((V14!= VV[82]))goto T811;
{object x= base[3],V20= VV[82];
while(!endp(V20))
if(eql(x,V20->c.c_car)){
goto T814;
}else V20=V20->c.c_cdr;
goto T813;}
T814:;
base[9]= base[4];
base[10]= base[5];
vs_top=(vs_base=base+9)+2;
L53();
vs_top=sup;
base[8]= vs_base[0];
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T813:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T811:;
if((V14!= VV[83]))goto T821;
if(!(base[3]==VV[83])){
goto T823;}
base[9]= base[4];
base[10]= base[5];
vs_top=(vs_base=base+9)+2;
L53();
vs_top=sup;
base[8]= vs_base[0];
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T823:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T821:;
if((V14!= VV[54]))goto T831;
{object x= base[3],V21= VV[84];
while(!endp(V21))
if(eql(x,V21->c.c_car)){
goto T834;
}else V21=V21->c.c_cdr;
goto T833;}
T834:;
base[9]= base[4];
base[10]= base[5];
vs_top=(vs_base=base+9)+2;
L53();
vs_top=sup;
base[8]= vs_base[0];
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T833:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T831:;
if((V14!= VV[106])
&& (V14!= VV[107])
&& (V14!= VV[55]))goto T841;
{object x= base[3],V22= VV[85];
while(!endp(V22))
if(eql(x,V22->c.c_car)){
goto T844;
}else V22=V22->c.c_cdr;
goto T843;}
T844:;
base[9]= base[4];
base[10]= base[5];
vs_top=(vs_base=base+9)+2;
L53();
vs_top=sup;
base[8]= vs_base[0];
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T843:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T841:;
if((V14!= VV[86]))goto T851;
if(!(base[3]==VV[86])){
goto T853;}
base[10]= car(base[4]);
base[11]= car(base[5]);
vs_top=(vs_base=base+10)+2;
L52();
if(vs_base>=vs_top){vs_top=sup;goto T858;}
base[8]= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T859;}
base[9]= vs_base[0];
vs_top=sup;
goto T860;
T858:;
base[8]= Cnil;
T859:;
base[9]= Cnil;
T860:;
base[10]= base[8];
base[11]= base[9];
vs_top=(vs_base=base+10)+2;
return;
T853:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T851:;
if((V14!= VV[45]))goto T865;
if(base[3]==VV[45]){
goto T866;}
if(!(base[3]==VV[37])){
goto T867;}
T866:;
if(endp(base[4])){
goto T872;}
if(!(car(base[4])==VV[29])){
goto T873;}
T872:;
if(endp(base[5])){
goto T871;}
if(car(base[5])==VV[29]){
goto T871;}
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T873:;
if(endp(base[5])){
goto T871;}
if(car(base[5])==VV[29]){
goto T871;}
if(equal(car(base[4]),car(base[5]))){
goto T871;}
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T871:;
if(endp(cdr(base[4]))){
goto T892;}
if(!(cadr(base[4])==VV[29])){
goto T891;}
T892:;
if(endp(cdr(base[5]))){
goto T896;}
if(!(cadr(base[5])==VV[29])){
goto T897;}
T896:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T897:;
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T891:;
if(endp(cdr(base[5]))){
goto T906;}
if(!(cadr(base[5])==VV[29])){
goto T905;}
T906:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T905:;
base[9]= cadr(base[4]);
base[10]= cadr(base[5]);
vs_top=(vs_base=base+9)+2;
L55();
vs_top=sup;
base[8]= vs_base[0];
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T867:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T865:;
if((V14!= VV[37]))goto T918;
if(!(base[3]==VV[37])){
goto T920;}
if(endp(base[4])){
goto T923;}
if(!(car(base[4])==VV[29])){
goto T924;}
T923:;
if(endp(base[5])){
goto T922;}
if(car(base[5])==VV[29]){
goto T922;}
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T924:;
if(endp(base[5])){
goto T922;}
if(car(base[5])==VV[29]){
goto T922;}
if(equal(car(base[4]),car(base[5]))){
goto T922;}
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T922:;
if(endp(cdr(base[4]))){
goto T943;}
if(!(cadr(base[4])==VV[29])){
goto T942;}
T943:;
if(endp(cdr(base[5]))){
goto T947;}
if(!(cadr(base[5])==VV[29])){
goto T948;}
T947:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T948:;
base[8]= Cnil;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T942:;
if(endp(cdr(base[5]))){
goto T957;}
if(!(cadr(base[5])==VV[29])){
goto T956;}
T957:;
base[8]= Ct;
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T956:;
base[9]= cadr(base[4]);
base[10]= cadr(base[5]);
vs_top=(vs_base=base+9)+2;
L55();
vs_top=sup;
base[8]= vs_base[0];
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T920:;
base[8]= Cnil;
base[9]= base[7];
vs_top=(vs_base=base+8)+2;
return;
T918:;
if((base[6])==Cnil){
goto T970;}
base[8]= (base[2]==base[3]?Ct:Cnil);
base[9]= Ct;
vs_top=(vs_base=base+8)+2;
return;
T970:;
base[8]= Cnil;
base[9]= Cnil;
vs_top=(vs_base=base+8)+2;
return;}
}
/* function definition for SUB-INTERVAL-P */
static L53()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= Cnil;
base[3]= Cnil;
base[4]= Cnil;
base[5]= Cnil;
if(!(endp(base[0]))){
goto T978;}
base[2]= VV[29];
base[3]= VV[29];
goto T976;
T978:;
if(!(endp(cdr(base[0])))){
goto T984;}
base[2]= car(base[0]);
base[3]= VV[29];
goto T976;
T984:;
base[2]= car(base[0]);
base[3]= cadr(base[0]);
T976:;
if(!(endp(base[1]))){
goto T994;}
base[4]= VV[29];
base[5]= VV[29];
goto T992;
T994:;
if(!(endp(cdr(base[1])))){
goto T1000;}
base[4]= car(base[1]);
base[5]= VV[29];
goto T992;
T1000:;
base[4]= car(base[1]);
base[5]= cadr(base[1]);
T992:;
if(!(base[2]==VV[29])){
goto T1010;}
if(base[4]==VV[29]){
goto T1008;}
base[6]= Cnil;
vs_top=(vs_base=base+6)+1;
return;
T1010:;
base[6]= (base[4]==VV[29]?Ct:Cnil);
if((base[6])==Cnil){
goto T1016;}
goto T1008;
T1016:;
if(!(type_of(base[2])==t_cons)){
goto T1019;}
if(!(type_of(base[4])==t_cons)){
goto T1022;}
if(!(number_compare(car(base[2]),car(base[4]))<0)){
goto T1008;}
base[7]= Cnil;
vs_top=(vs_base=base+7)+1;
return;
T1022:;
if(!(number_compare(car(base[2]),base[4])<0)){
goto T1008;}
base[7]= Cnil;
vs_top=(vs_base=base+7)+1;
return;
T1019:;
if(!(type_of(base[4])==t_cons)){
goto T1030;}
if(!(number_compare(base[2],car(base[4]))<=0)){
goto T1033;}
base[8]= Cnil;
vs_top=(vs_base=base+8)+1;
return;
T1033:;
base[7]= Cnil;
goto T1028;
T1030:;
if(!(number_compare(base[2],base[4])<0)){
goto T1036;}
base[8]= Cnil;
vs_top=(vs_base=base+8)+1;
return;
T1036:;
base[7]= Cnil;
T1028:;
if((base[7])==Cnil){
goto T1008;}
T1008:;
if(!(base[3]==VV[29])){
goto T1042;}
if(base[5]==VV[29]){
goto T1040;}
base[6]= Cnil;
vs_top=(vs_base=base+6)+1;
return;
T1042:;
base[6]= (base[5]==VV[29]?Ct:Cnil);
if((base[6])==Cnil){
goto T1048;}
goto T1040;
T1048:;
if(!(type_of(base[3])==t_cons)){
goto T1051;}
if(!(type_of(base[5])==t_cons)){
goto T1054;}
if(!(number_compare(car(base[3]),car(base[5]))>0)){
goto T1040;}
base[7]= Cnil;
vs_top=(vs_base=base+7)+1;
return;
T1054:;
if(!(number_compare(car(base[3]),base[5])>0)){
goto T1040;}
base[7]= Cnil;
vs_top=(vs_base=base+7)+1;
return;
T1051:;
if(!(type_of(base[5])==t_cons)){
goto T1062;}
if(!(number_compare(base[3],car(base[5]))>=0)){
goto T1065;}
base[8]= Cnil;
vs_top=(vs_base=base+8)+1;
return;
T1065:;
base[7]= Cnil;
goto T1060;
T1062:;
if(!(number_compare(base[3],base[5])>0)){
goto T1068;}
base[8]= Cnil;
vs_top=(vs_base=base+8)+1;
return;
T1068:;
base[7]= Cnil;
T1060:;
if((base[7])==Cnil){
goto T1040;}
T1040:;
base[6]= Ct;
vs_top=(vs_base=base+6)+1;
return;
}
/* function definition for IN-INTERVAL-P */
static L54()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= Cnil;
base[3]= Cnil;
if(!(endp(base[1]))){
goto T1074;}
base[2]= VV[29];
base[3]= VV[29];
goto T1072;
T1074:;
if(!(endp(cdr(base[1])))){
goto T1080;}
base[2]= car(base[1]);
base[3]= VV[29];
goto T1072;
T1080:;
base[2]= car(base[1]);
base[3]= cadr(base[1]);
T1072:;
base[4]= (base[2]==VV[29]?Ct:Cnil);
if((base[4])==Cnil){
goto T1091;}
goto T1088;
T1091:;
if(!(type_of(base[2])==t_cons)){
goto T1094;}
if(!(number_compare(base[0],car(base[2]))<=0)){
goto T1088;}
base[5]= Cnil;
vs_top=(vs_base=base+5)+1;
return;
T1094:;
if(!(number_compare(base[0],base[2])<0)){
goto T1100;}
base[6]= Cnil;
vs_top=(vs_base=base+6)+1;
return;
T1100:;
base[5]= Cnil;
if((base[5])==Cnil){
goto T1088;}
T1088:;
base[4]= (base[3]==VV[29]?Ct:Cnil);
if((base[4])==Cnil){
goto T1107;}
goto T1104;
T1107:;
if(!(type_of(base[3])==t_cons)){
goto T1110;}
if(!(number_compare(base[0],car(base[3]))>=0)){
goto T1104;}
base[5]= Cnil;
vs_top=(vs_base=base+5)+1;
return;
T1110:;
if(!(number_compare(base[0],base[3])>0)){
goto T1116;}
base[6]= Cnil;
vs_top=(vs_base=base+6)+1;
return;
T1116:;
base[5]= Cnil;
if((base[5])==Cnil){
goto T1104;}
T1104:;
base[4]= Ct;
vs_top=(vs_base=base+4)+1;
return;
}
/* function definition for MATCH-DIMENSIONS */
static L55()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
check_arg(2);
vs_top=sup;
TTL:;
if((base[0])!=Cnil){
goto T1121;}
base[2]= (base[1]==Cnil?Ct:Cnil);
vs_top=(vs_base=base+2)+1;
return;
T1121:;
if(!(car(base[1])==VV[29])){
goto T1125;}
goto T1123;
T1125:;
if(car(base[0])==car(base[1])){
goto T1123;}
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
T1123:;
base[0]= cdr(base[0]);
base[1]= cdr(base[1]);
goto TTL;
}
/* function definition for COERCE */
static L56()
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= base[0];
base[3]= base[1];
vs_top=(vs_base=base+2)+2;
L49();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T1130;}
vs_top=(vs_base=base+0)+1;
return;
T1130:;
base[2]= base[1];
vs_top=(vs_base=base+2)+1;
L50();
vs_top=sup;
base[1]= vs_base[0];
{object V23= car(base[1]);
if((V23!= VV[64]))goto T1138;
base[4]= make_fixnum(length(base[0]));
base[3]= one_minus(base[4]);
base[2]= Cnil;
T1141:;
if(!(number_compare(base[3],VV[26])<0)){
goto T1142;}
vs_top=(vs_base=base+2)+1;
return;
T1142:;
base[4]= elt(base[0],fixint(base[3]));
base[2]= make_cons(base[4],base[2]);
base[3]= one_minus(base[3]);
goto T1141;
T1138:;
if((V23!= VV[37])
&& (V23!= VV[45]))goto T1150;
if(endp(cdr(base[1]))){
goto T1151;}
if(endp(cddr(base[1]))){
goto T1151;}
if(caddr(base[1])==VV[29]){
goto T1151;}
if(endp(cdr(caddr(base[1])))){
goto T1151;}
base[2]= VV[87];
vs_top=(vs_base=base+2)+1;
Lerror();
vs_top=sup;
T1151:;
base[5]= base[1];
base[6]= make_fixnum(length(base[0]));
base[2]= simple_symlispcall_no_event(VV[110],base+5,2);
base[4]= make_fixnum(length(base[0]));
base[3]= VV[26];
T1166:;
if(!(number_compare(base[3],base[4])>=0)){
goto T1167;}
vs_top=(vs_base=base+2)+1;
return;
T1167:;
base[5]= elt(base[0],fixint(base[3]));
(void)(elt_set(base[2],fixint(base[3]),base[5]));
base[3]= one_plus(base[3]);
goto T1166;
T1150:;
if((V23!= VV[111]))goto T1175;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
Lcharacter();
return;
T1175:;
if((V23!= VV[83]))goto T1177;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
Lfloat();
return;
T1177:;
if((V23!= VV[54]))goto T1179;
base[2]= base[0];
base[3]= VV[88];
vs_top=(vs_base=base+2)+2;
Lfloat();
return;
T1179:;
if((V23!= VV[106])
&& (V23!= VV[107])
&& (V23!= VV[55]))goto T1182;
base[2]= base[0];
base[3]= VV[89];
vs_top=(vs_base=base+2)+2;
Lfloat();
return;
T1182:;
if((V23!= VV[86]))goto T1185;
if((cdr(base[1]))==Cnil){
goto T1186;}
if((cadr(base[1]))==Cnil){
goto T1186;}
if(!(cadr(base[1])==VV[29])){
goto T1187;}
T1186:;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lrealpart();
vs_top=sup;
base[2]= vs_base[0];
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Limagpart();
vs_top=sup;
base[3]= vs_base[0];
vs_top=(vs_base=base+2)+2;
Lcomplex();
return;
T1187:;
base[4]= base[0];
vs_top=(vs_base=base+4)+1;
Lrealpart();
vs_top=sup;
base[3]= vs_base[0];
base[4]= cadr(base[1]);
vs_top=(vs_base=base+3)+2;
L56();
vs_top=sup;
base[2]= vs_base[0];
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
Limagpart();
vs_top=sup;
base[4]= vs_base[0];
base[5]= cadr(base[1]);
vs_top=(vs_base=base+4)+2;
L56();
vs_top=sup;
base[3]= vs_base[0];
vs_top=(vs_base=base+2)+2;
Lcomplex();
return;
T1185:;
base[2]= VV[90];
base[3]= base[0];
base[4]= base[1];
vs_top=(vs_base=base+2)+3;
Lerror();
return;}
}
/* local function CLOSURE */
static LC67(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM13;
vs_reserve(VM13);
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T1208;}
vs_top=sup;
goto T1209;
T1208:;
base[0]= VV[29];
T1209:;
base[1]= make_cons(base[0],Cnil);
base[2]= list(3,VV[45],VV[21],base[1]);
vs_top=(vs_base=base+2)+1;
return;
}
/* local function CLOSURE */
static LC66(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM14;
vs_reserve(VM14);
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T1211;}
vs_top=sup;
goto T1212;
T1211:;
base[0]= VV[29];
T1212:;
base[1]= make_cons(base[0],Cnil);
base[2]= list(3,VV[45],VV[40],base[1]);
vs_top=(vs_base=base+2)+1;
return;
}
/* local function CLOSURE */
static LC65(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM15;
vs_reserve(VM15);
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T1214;}
vs_top=sup;
goto T1215;
T1214:;
base[0]= VV[29];
T1215:;
base[1]= make_cons(base[0],Cnil);
base[2]= list(3,VV[45],Ct,base[1]);
vs_top=(vs_base=base+2)+1;
return;
}
/* local function CLOSURE */
static LC64(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM16;
vs_reserve(VM16);
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T1217;}
vs_top=sup;
goto T1218;
T1217:;
base[0]= VV[29];
T1218:;
base[1]= list(3,VV[35],VV[21],base[0]);
vs_top=(vs_base=base+1)+1;
return;
}
/* local function CLOSURE */
static LC63(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM17;
vs_reserve(VM17);
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T1220;}
vs_top=sup;
goto T1221;
T1220:;
base[0]= VV[29];
T1221:;
base[1]= list(3,VV[35],VV[40],base[0]);
vs_top=(vs_base=base+1)+1;
return;
}
/* local function CLOSURE */
static LC62(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM18;
vs_reserve(VM18);
if(vs_top-vs_base>2) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T1223;}
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T1224;}
vs_top=sup;
goto T1225;
T1223:;
base[0]= VV[29];
T1224:;
base[1]= VV[29];
T1225:;
base[2]= make_cons(base[1],Cnil);
base[3]= list(3,VV[37],base[0],base[2]);
vs_top=(vs_base=base+3)+1;
return;
}
/* local function CLOSURE */
static LC61(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM19;
vs_reserve(VM19);
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T1228;}
vs_top=sup;
goto T1229;
T1228:;
base[0]= VV[29];
T1229:;
if(!(base[0]==VV[29])){
goto T1232;}
base[1]= VV[34];
vs_top=(vs_base=base+1)+1;
return;
T1232:;
base[1]= number_expt(VV[31],base[0]);
base[2]= one_minus(base[1]);
base[3]= list(3,VV[16],VV[26],base[2]);
vs_top=(vs_base=base+3)+1;
return;
}
/* local function CLOSURE */
static LC60(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM20;
vs_reserve(VM20);
if(vs_top-vs_base>1) too_many_arguments();
if(vs_base>=vs_top){vs_top=sup;goto T1234;}
vs_top=sup;
goto T1235;
T1234:;
base[0]= VV[29];
T1235:;
if(!(base[0]==VV[29])){
goto T1238;}
base[1]= VV[30];
vs_top=(vs_base=base+1)+1;
return;
T1238:;
base[1]= one_minus(base[0]);
base[2]= number_expt(VV[31],base[1]);
base[3]= number_negate(base[2]);
base[4]= one_minus(base[0]);
base[5]= number_expt(VV[31],base[4]);
base[6]= one_minus(base[5]);
base[7]= list(3,VV[16],base[3],base[6]);
vs_top=(vs_base=base+7)+1;
return;
}
/* local function CLOSURE */
static LC59(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM21;
vs_reserve(VM21);
check_arg(1);
vs_top=sup;
base[1]= one_minus(base[0]);
base[2]= list(3,VV[16],VV[26],base[1]);
vs_top=(vs_base=base+2)+1;
return;
}
/* local function CLOSURE */
static LC58(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM22;
vs_reserve(VM22);
check_arg(0);
vs_top=sup;
base[0]= VV[23];
vs_top=(vs_base=base+0)+1;
return;
}
/* local function CLOSURE */
static LC57(base0)
register object *base0;
{ register object *base=vs_base;
register object *sup=base+VM23;
vs_reserve(VM23);
check_arg(0);
vs_top=sup;
base[0]= list(3,VV[16],VV[17],VV[18]);
vs_top=(vs_base=base+0)+1;
return;
}